home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1997 / HAM Radio 1997.iso / vcls / sockv2 / ftp.dfm / ftp.txt
Text File  |  1996-04-08  |  4KB  |  163 lines
  1. object FTPForm: TFTPForm
  2.   Left = 13
  3.   Top = 96
  4.   Width = 628
  5.   Height = 359
  6.   Caption = 'FTP'
  7.   Font.Color = clWindowText
  8.   Font.Height = -13
  9.   Font.Name = 'System'
  10.   Font.Style = []
  11.   Menu = MainMenu1
  12.   PixelsPerInch = 96
  13.   Visible = True
  14.   OnCreate = FormCreate
  15.   TextHeight = 16
  16.   object Sockets1: TSockets
  17.     Left = 73
  18.     Top = 209
  19.     Width = 32
  20.     Height = 32
  21.     OnErrorOccurred = Sockets1ErrorOccurred
  22.   end
  23.   object Sockets2: TSockets
  24.     Left = 112
  25.     Top = 208
  26.     Width = 32
  27.     Height = 32
  28.     OnErrorOccurred = Sockets1ErrorOccurred
  29.   end
  30.   object Memo1: TMemo
  31.     Left = 0
  32.     Top = 0
  33.     Width = 620
  34.     Height = 313
  35.     Align = alClient
  36.     Font.Color = clBlack
  37.     Font.Height = -13
  38.     Font.Name = 'Courier New'
  39.     Font.Style = []
  40.     ParentFont = False
  41.     ScrollBars = ssBoth
  42.     TabOrder = 2
  43.     OnExit = ExitMNUClick
  44.   end
  45.   object MainMenu1: TMainMenu
  46.     Left = 38
  47.     Top = 207
  48.     object FileMNU: TMenuItem
  49.       Caption = '&File'
  50.       object ConnectMNU: TMenuItem
  51.         Caption = '&Connect'
  52.         Hint = 'Connect to FTP server'
  53.         OnClick = ConnectMNUClick
  54.       end
  55.       object QuitMNU: TMenuItem
  56.         Caption = '&Disconnect'
  57.         Hint = 'Disconnect from FTP server'
  58.         OnClick = QuitMNUClick
  59.       end
  60.       object RenameMNU: TMenuItem
  61.         Caption = '&Rename File'
  62.         Hint = 'Rename remote file'
  63.         OnClick = RenameMNUClick
  64.       end
  65.       object DeleteMNU: TMenuItem
  66.         Caption = 'De&lete File'
  67.         Hint = 'Delete remote file'
  68.         OnClick = DeleteMNUClick
  69.       end
  70.       object N1: TMenuItem
  71.         Caption = '-'
  72.       end
  73.       object ExitMNU: TMenuItem
  74.         Caption = '&Exit'
  75.         Hint = 'Exit this program'
  76.         OnClick = ExitMNUClick
  77.       end
  78.     end
  79.     object FileTransMNU: TMenuItem
  80.       Caption = 'File &Transfers'
  81.       object GetMNU: TMenuItem
  82.         Caption = '&Get File'
  83.         Hint = 'Retrieves a file from the FTP server'
  84.         OnClick = GetMNUClick
  85.       end
  86.       object PutMNU: TMenuItem
  87.         Caption = '&Put File'
  88.         Hint = 'Sends a file to the FTP server'
  89.         OnClick = PutMNUClick
  90.       end
  91.       object ViewMNU: TMenuItem
  92.         Caption = '&View file'
  93.         OnClick = ViewMNUClick
  94.       end
  95.       object CancelMNU: TMenuItem
  96.         Caption = '&Cancel Transfer'
  97.         OnClick = CancelMNUClick
  98.       end
  99.     end
  100.     object DirCommandMNU: TMenuItem
  101.       Caption = '&Directory'
  102.       object DirMNU: TMenuItem
  103.         Caption = '&List Directory'
  104.         Hint = 'Display a directory listing of the remote system'
  105.         OnClick = DirMNUClick
  106.       end
  107.       object PwdMNU: TMenuItem
  108.         Caption = '&Print Working Directory'
  109.         Hint = 'Print the current remote directory name'
  110.         OnClick = PwdMNUClick
  111.       end
  112.       object ChDirMNU: TMenuItem
  113.         Caption = '&Change Directory'
  114.         Hint = 'Change the remote directory location'
  115.         OnClick = ChDirMNUClick
  116.       end
  117.       object ParentMNU: TMenuItem
  118.         Caption = '&Parent Directory'
  119.         OnClick = ParentMNUClick
  120.       end
  121.       object MkDirMNU: TMenuItem
  122.         Caption = '&Make Directory'
  123.         Hint = 'Create a new remote directory'
  124.         OnClick = MkDirMNUClick
  125.       end
  126.       object RmDirMNU: TMenuItem
  127.         Caption = '&Remove Directory'
  128.         Hint = 'Delete a remote directory'
  129.         OnClick = RmDirMNUClick
  130.       end
  131.     end
  132.     object MiscCommMNU: TMenuItem
  133.       Caption = '&Misc-Commands'
  134.       object QuoteMNU: TMenuItem
  135.         Caption = '&Quote'
  136.         Hint = 'Sends any FTP command you type'
  137.         OnClick = QuoteMNUClick
  138.       end
  139.       object HelpMNU: TMenuItem
  140.         Caption = '&Help'
  141.         Hint = 'Asks the remote system for help'
  142.         OnClick = HelpMNUClick
  143.       end
  144.     end
  145.     object OptionsMNU: TMenuItem
  146.       Caption = '&Options'
  147.       object DirSepMNU: TMenuItem
  148.         Caption = '&Directory Separate'
  149.         OnClick = DirSepMNUClick
  150.       end
  151.       object ViewSepMNU: TMenuItem
  152.         Caption = '&View Separate'
  153.         Checked = True
  154.         OnClick = ViewSepMNUClick
  155.       end
  156.       object EditorMNU: TMenuItem
  157.         Caption = '&Editor'
  158.         OnClick = EditorMNUClick
  159.       end
  160.     end
  161.   end
  162. end
  163.